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timeout. 
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200 Initial Setup Steps: 

1 .Connect phone on a COM port 

2. Connect Audio cables 

3. Select default sound system mixer (if more 
than one. 

4. Set volumes to 50% for Record Mic and 
Playback Wav , disable Playback Mic and 
Record Wav to prevent feedback 

5. Run Internet Telephony software to allow it 
to get control of the sound system 

6. Run sample control program (fig 5) 

7. Verify that program detects phone on com 
port and test ring it 

8. Choose Internet Telephony Service 

9. Enable Dialer 

10. Hit Talk button to play dialtone and 
trigger auto recovery if sound system is set up 
incorrectly (no defimlt device). 



Wait for off hook (DSR « Low) 
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audio output to applicatioa If no Connect, 
timeout and return to dial tone. 
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Figure 6 Visual Basic Program Listing 
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'Sample listing for setup of DTMF recognition and serial port operations related to use of the Cordless 
Internet Telephone to emulate a POTS call using one of several service providers. 



Misc. (Types, Enums, Constants...) 



1 Means to use a default or automatic value 
Global Const ttAutomatic = -1 

' Errors used by ttLib 
Enum ttErrors 

tteNoError - 0 

tteUnknown 

tteNotSupported 

tteOutOfMemory 

tteWaveDeviceDidNotOpen 

tteWrongState 

tteBadParameter 
End Enum 

' Most ttLib functions return a success value 
Enum ttSuccessValue 

ttscFailure= 0 

ttscSuccess = -1 
End Enum 

' Used by ttlnitializeExInfo and ttlnitializeO 

Enum ttCallbackMethods 
ttcmPostMessage = 0 • PostMessage to a given window 
ttcmSendMessage = 1 1 SendMessage to a given window 



ttcmDirectFunction = 2 ' Call a function DIRECTLY FROM THE RECOGNIZER THREAD 
End Enum 

• Used by ttlnitializeExO 
Type ttlnitializeExInfo 
StructSize As Long * LenB(ttInitializeExInfo) 

CallbackMethod As ttCallbackMethods • Desired form of callback 
Callbacklnfol As Long ' IfCB method is DirectFunction, this is a 

1 Function pointer of a CallbackType functioa 

1 IfCB method is Send/PostMessage ? this is 

'the target hWnd 

CalIbackInfo2 As Long f IfCB method is Sendfl?ostMessage ? this is the 

• window message to send or ttAutomatic. 

MinNoise As Long ' Noise gate level or ttAutomatic 

ToneDuration As Long 1 Number of I2.75ms sampling windows needed 

' for tone or ttAutomatic 
SilenceEhiration As Long 1 Number of 12.75ms sampling windows needed 

* for silence or ttAutomatic 
SignalToNoise As Long 1 Signal to noise ratio or ttAutomatic 
RowRatio As Long ♦ Primary to harmonic ratio for rows or 



' ttAutomatic 

ColRatio As Long ' Primary to harmonic ratio for columns or 

'ttAutomatic 

DeviceOverride As Long ' Audio input device to use or ttAutomatic 

End Type 



t 

' Interface functions 



1 You call InitializeO or MtializeExO when you first load the DLL or 

' when you want to change some of the parameters. They are NOT meant to 

' be called while recognition is in progress. The results of calling them 

f while recognition is in progress are undefined 

1 The ttlnitializeExInfo struct passed to InitializeExO will be returned 

' with all ttAUTOMATIC values replaced by their defaults. The struct can 

'freed immediately. 

Declare Function ttlnitialize Lib "tttib" (ByVal Method As ttCaUbackMethods, ByVal Callbacklnfol As 
Long) As ttSuccessValue 

Declare Function tflnitializeEx Lib "ttLibf (ttLiblnitializeExInfo As ttlnitializeExInfo) As ttSuccessValue 
' Starts up recognition 

Declare Function ttBeginRecognition Lib "ttLib" 0 As ttSuccessValue 

1 Stops recognitioa Failing to call this is an easy way to crash your app. 
Declare Function ttEndRecognition Lib "ttLib" 0 As ttSuccessValue 

1 Returns an error value. 

Declare Function ttGetErrorVal Lib M ttLib" 0 As tffinors 



' This is the prototype to use for callbacks functions. With VB6, this is 
' useless unless you really know what you're doing. With VB5, it should 
* be a breeze. 

' Sub CallbackProc(By Val Char As Byte) 



'The following Communications constants are from win32api.txt: 



'EscapeCommFunction values 
Global Const SETXOFF - 1 
Global Const SETXON - 2 
Global Const SETRTS = 3 
Global Const CLRRTS = 4 
Global Const SETDTR = 5 
Global Const CLRDTR = 6 
Global Const RESETDEV = 7 
Global Const GETMAXLPT = 8 
Global Const GETMAXCOM = 9 
Global Const GETBASEIRQ = 10 



'Global variables & constants 



Public CommPortsO As String 
Public PortExists As Boolean 
Public ComlPortlnUse As Boolean 
Public Com2PortInUse As Boolean 
Public PortNumber As Integer 
Public PortOpen As Boolean 
Public NumberQfPorts As Integer 

Public ValidPort As Boolean 

Public dtmf As String 

Public gettingjone As Boolean 

'API declares; 

Declare Function PlaySound _ 
Lib "winnrndll" _ 
Alias "PlaySoundA" _ 

(ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 



Public Declare Function EscapeCommFunction 
Lib "kernem" _ 
(ByVal nCid As Long, _ 
ByVal nFunc As Long) _ 
As Long 



Public Declare Function timeGetTime 
Lib H wiiunm.dU"0_ 
As Long 



Public Sub Delay(DelayInMilliseconds As Single) 
Delay timer with approximately 1-msec, resolution. 
Uses the API function timeGetTime. 
'Rolls over 24 days after the last Windows startup. 
Dim Timeout As Single 

Timeout = DelaylnMilliseconds + timeGetTuneO 
Do Until timeGetTimeO >= Timeout 

DoEvents 
Loop 
End Sub 



Public Sub ShutDownO 
'Close the port 

If Forml .MSComml .PortOpen = True Then 
Fonnl .MSCommLPortOpen - False 



End If 
End Sub 



Private Const WM_LBUTTONUP = &H202 
Public dialing As Boolean 
Public dialtoneplaying As Boolean 
Public talking As Boolean 



Private Sub CallbackTarget_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 

* When the recognizer gets a valid tone, it sends a window message with 

' both the LPARAM and the WPARAM as the ASCII value of the key. Since we 
' specified WMJLBUTTONUP as the message and CallbackTargethWnd as the window 
' in our call to ttlnitializeExO - this MouseUp event ends up firing when 
' a key is recognized! 

1 For a normal WMJLBUTTONUP message, the X position of the mouse is in the 
1 low word of the LPARAM Since VB uses that for the X parameter... the 

• key's ASCII value is now in X! Note that CallbackTarget's ScaleMode is 
' vbPixels. If it was something else, VB would have multipled the real 

' low word of LPARAM by something to make X (i.e., if ScaleMode = vbTwips, 
' we'd want to do txtKeys.SelText = Cta$(X \ Screen.TwipsPerPixelx)). Dont 
1 sweat it Just make sure your callbaclctarget's ScaleMode is vbPixels! 

Status.SeIStart = Len(StatusText) 
Status.SelText - Chr$(X) 
End Sub 



Private Sub EnableDialer_ClickO 

If PickMSIM Value = False And RckDialpad Value = False And PickPhoneFree. Value = False Then 

MsgBox " You must select a program first' 1 

Exit Sub 
End If 



PortNumber « Textl.Text 

If FonnLMSCommlPortC^oi = True Thai Forml .MSComm 1 .PortOpen = False 
FormLMSCommLCommPort - PortNumber 

If FormLMSComml.PortOpen = False Then FormLMSCommLPortOpen = True 



'start capturing tones 

If ttBeginRecognition - ttscFailuie Then 

MsgBox "Failed to start DTMF recognition! Is your sound system in use by another program?*' & 
vbNewLine & "Error tt & CStr(ttGetErrorVal), vbExclamation 
Exit Sub 
End If 
Status/Text 
dialing = True 

If HckDialpad Value = True Then Timerl.Enabled = True 



If PickMSIMValue = True Then TimetiEoabled = True 
If HcfcFhoneFree. Value = True Then Tlmer3JEnaMed = True 
EnableDialerJEnabied = False 
Command2.Enabled = False 
TextLEnabled = False 

Text2.Text = "Listening on com port H & PortNumber 
End Sub 



Private Sub Command2 J3ick0 
PortNumber = TextLText 
Callringit 

Call ringit ' sometimes the detection circuit needs a second ring 
End Sub 



Private Sub ringitO 

'rings the handset until answered 

If MSComml .PortC^en - True Then MSCommLPortOpen = False 
'Change Comm port here 
MSComm 1 . CommPort = PortNumber 

If MSCommLPortCfcen = False Then MSCommLPortOpen = True 

Dim Commhandle As Long 

Commhandle ~ FormLMSCommLCommlD 

Do 

Dim Timeout As Single 
Timeout - timeGetTimeO + 500 
Do 

RTSOn = SETRTS 

Success = EscapeCommFunction(Commhandie ? RTSOn) 
Delay (25) 
RTSOn = CLRRTS 

Success = EscapeCommFunction(Commhandle ? RTSOn) 

Delay (25) 
Loop While (timeGetTimeO <" Timeout) 
Delay (1000) 
Wait for off hook 

Loop While MSComm LDSRHolding = True 

If MSCommLPortOpen « True Then MSCommLPortOpen = False 

End Sub 



Private Sub Reset^ClickO 
'reset everything and stop timers 
ttEndRecognition 

IfFonnLMSCommLPortOpen = True Then Forml.MSCommlJPortOpen « False 
Call dialtone_off 
Timer 1. Enabled ~ False 
Timer2 .Enabled = False 
Timer3 Enabled « False 



EnableDialenEnabled = True 
Command2.Enabled = True 

Delay (1000) *give the phone a second to settle incase they just hungup 
Call Textl ^Change 
End Sub 



Private Sub Command4_ClickQ 
Dimhtmlpath 

htmlpath = App.Path & "\index.html" 
fhnBrowser. StartingAddress = htmlpath 
frmBrowser.Show 
End Sub 



Private Sub FormJLoadO 
'set up state variables 

dialing = False 

dialtoneplaying = False 

talking = False 

Textl.Text- 1 

PortNumber = TextLText 

Call Textl ^Change 



'set up dtrnf detector 
Dim IEI As ttlnitializeExInfo 
With DEI 
.StructSize-LenB(IEl) 

.CallbackMethod ~ ttcmPostMessage 

1 Callbacklnfol is the target window for window-based callbacks 
.CaUbacklnfol - CaUbackTargethWnd 

T Callbaddnfo2 is the WM to send for window-based callbacks 
.Callbacklnfc2 = WMLLBUTTONDP 

'Use the defaults... 
ColRatio = ttAutomatic 
,DeviceOverride « ttAutomatic 
JVfinNoise = ttAutomatic 
.RowRatio - ttAutomatic 
.SignalToNoise = ttAutomatic 
.SilenceDuration = ttAutomatic 
.ToneDuration = ttAutomatic 
End With 

If tttoitializeEx(IEI) = ttscFailure Then 

MsgBox "Failed to initialize tfLib!" & vbNewLine & "Error n & CStr(ttGetEm)rVal) ? vbExclamation 

Unload Me 

Exit Sub 
End If 



' ttlnitializeEx will have filled in all the ttAutomatic values, so 



' we can see what they are now if you uncomment the box below. . . 

•MsgBox "Tone duration is " & Fonnat$(IELToneDuration * 12.75, *#JF) & vbNewLine & 
"Silence duration is " & Fonnat$(im.SflenceDuration * 12.75, "# J#"), _ 
vblnformation, "Info" 

End Sub 



Private Si* RckDialpad_CHckO 
HckMSIM. Value = False 
PtckPhoneFree. Value = False 

End Sub 



Private Sub PickMSM_Click() 
PickDialpad. Value = False 
PickPhoneFree. Value - False 

End Sub 



Private Sub PickPhoneFree ClickO 
HckMSIM. Value - False 
KckDialpadValue = False 

End Sub 



Private Sub Textl^ChangeO 

1 check for DSR on selected port to sense a device 

'note that IR ports also give a positive response, it might not be the phone 

On Error Resume Next 

If TextLText = ttn Then Exit Sub 

If Textl.Text > 0 And TextLText < 3 Then PortNumber = Textl.Text 
IfFonnLMSCommLPortOpen « True Tien Forml MSCommLPortOpen = False 
FonnLMSCommLCommPort = PortNumber 

IfFonnl.MSCommLPortOpen - False Then FonnLMSCommLPoitOpen - True 
If Forml.MSComml.DSRHolding - True Then 

TextLText = "Device found on port" 

Command2. Visible = True * display a test ring button 
Else 

TextLText = "Device not ready or not found on com port" 
Command2.Visible = False 
End If 

If TextLText > 2 Then Textl.Text « 1 
End Sub 



Private Sub Timerl JDmerO 

If dialing « True And Forml.MSComml.DSRHolding « False Then 
'check to see if I should start dialtone 

If cfialtoneplaying - False And Status.Text « nn Then Call dialtonejm 

'wait for right number of digits, and kill dialtone on the first one 
If Len(Status.Text) > 0 Then 
Call<fialtone_off 
If Len(Status.Text) > 9 Then 
1 recognition is ended 



ttEndRecognition 
'run the application 
AppActivate ("Dialpadcom [") 
'send it the ri£ht keystrokes to dial 

SendKeys "{TAB 13}" & "~" & "{BKSP}" & StatusText & "~", 0 
dialings False 
talking = True 
End If 

End If 'ifflag = true 

End If 

'reset everything on a hangup 

If talking = True And Forml .MSComml .DSRHolding = True Then 
talking = False 

AppActivate ("Dialpadcom [ M ) 

SendKeys "%{F4}" ? 1 'altF4 closes window 

DoEvents 

Delay (300) 

AppActivate ("Walpad") 
SendKeys "'/ovr", 1 
Delay 10000 
dialing = True 
Can EtiableDialer_Click 
End If 

If dialing = True And MSCommLDSRHolding = True And Status/Text > nn Then 
Call dialtoneoff 

Status/Text = "" 
End If 
End Sub 



Private Sub Timer2_Timer() 

'This timer routine is for Microsoft Instant MessengetfNet2Phone 
' don't waste time if phone is on hook 

If dialing = True And Forml. MSCommLDSRHolding = False Then 

'check to see if I should start dialtone 
Ifdialtoneplaying = False And Status/Text = Then Call <fiaItone_on 

'wait for right number of digits, and kill dialtone on the first one 
If Len(Status.Text) > 0 Then 
Call dialtone_o£f 
If Len(Status.Text) > 10 Then 

1 recognition is ended 

ttEndRecognition 

'run the application 

AppActivate ("MSN Mess") 

SendKeys "%TCD" ? 1 

AppActivate ("Phone Call") 

SendKeys Status/Text & n ~" 

dialing = False 

talking = True 

Status/Text^" 
End If 



End If * if flag = true 
End If 



If talking = True And FormLMSComml.DSRHolding = True Then 

talking = False 

AppActivate ("Phone Call") 

SendKeys M %UM 

Delay (500) 

EnableDialer_Click 
End If 

If dialings True And MSCommLDSRHolding = True And Status.Text > nn Then 
Call dialtone_off 

StatusText = ,,H 
End If 
End Sub 



Private Sub FormJJnload(Cancel As Integer) 

'shut down and release audio hardware 

IfForml.MSComml.PortOpen = True Then FormLMSCommLPortOpen - False 

Call dialtone_off 

1 Make sure recognition is ended! 

ttEndRecognition 
End Sub 



Private Sub dialtone_on() 
'plays the dialtone wav 

On Error Resume Next 

dialtoneplaying - True 

•Declare sound playing api variables 
SNDASYNC - &H1 

'Play the sound asynchronously - return immediately after beginning to play the sound and have it play 
in the background 

SNDJFILENAME - &H20000 

IpszName is a string identifying the filename of the .wav file to play. 
SNDJ.OOP-&H8 

'Continue looping the sound until this function is called again ordering the looped playback to stop. 
SND ASYNC must also be specified 
SNDJ>URGE = &H40 

'Stop playback of any waveform sound IpszName must be an empty string.Dim SYNC As Long 
Dimwav As String 
wav - "c:\windows\dialtone.wav" 
If wav « Then Exit Sub 
SYNC = SND_ASYNC Or SNDJLOOP 
Dim R As Long 

R - PlaySound(wav, 0, SNDJFILENAME Or SND.ASYNC Or SNDJLOOP) 

If R = OThenMsgBox ("Error! I couldn't get control of the speaker to play dialtone, but the call may still 
work. You may have to stop other audio programs or check device settings in Control panel, Multimedia 
Playback (Use preferred device only)* 1 ) 

End Sub 

Private Sub dialtone ofifO 
On Error Resume Next 
dialtoneplaying = False 
Tteclare sound playing apt variables 
SND_ASYNC = &H1 

Tlay the sound asynchronously - return immediately after beginning to play the sound and have it play 
in the background 

SNDJFILENAME = &H20000 



IpszName is a string identifying the filename of the .wav file to play. 
SND_LOQP = &H8 

'Continue looping the sound until this function is called again ordering the looped playback to stop. 
SND ASYNC must also be specified. 
SND_PURGE = &H40 

'Stop playback of any waveform sound IpszName must be an empty string.Dim SYNC As Long 
SNDNODEFAULT = &H2 

wav = tt c:\windows\off.wav H 

R = PlaySoundT', 0, SNDJPURGE Or SNDNODEFAULT) 
End Sub 



Private Sub Timer3_Timer0 

' this timer is for Fhonefiee 

* don't waste time if phone is on hook 

If dialing - True And Form LMSCommLDSRHolding = False Then 
'check to see if I should start dialtone 

If dialtoneplaying = False And Statu&Text = *" Then Call dialtone on 
'wait for right number of digits, and kill dialtone on the first one 

If Len(Status.Text) > 0 Then 
Call dialtoneoff 

If Len(Status,Text) > 10 Then 

1 recognition is ended 

ttEndRecognition 

'run tiie application 

AppActivate ("PhoneFree") 

SendKeys Status/Text & M ~" 

dialings False 

talking* True 

Status/Text-™ 
End If 

End If 'ifflag = true 
End If 

If talking = True And Forml .MSComml .DSRHolding = True Then 
talking = False 

1 Uncomment this when Fhonefiee gets their hotkeys working again 
'In the meantime, just hope the other party hangs up within 15 seconds 

'AppActivate ("PhoneFree") 
'SendKeys "+H\ 1 
Delay (3000) 
'SendKeys 1 
'EnableDialer^Click 
Call Reset_Click 
End If 

If dialing = True And MSCommLDSRHolding « True And Status.Text > Then 

Call diaftone_off 

Status.Text = !M! 
Endlf 
End Sub 



Figure 7 DTMF detection software parameter tuning 
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Figure 8 DTMF Detection Library function 

// 

// Mainx - Murphy McCautey 

Sun, Oct 1/2000 

// The interface and heart of ttLib 

// 



// 

//Misc 

// 

//This is the main file 
#defineMAXN 

// 



// 

//Includes 

//. : 

#include"ttLib.h H 
#include "MainA" 
#include "DFLh" 
#include "Utah" 

#include <math.h> // For floorQ (I flank that's all...) 

#include <process.h> // For threading 
#include<mmsystem.h> //For audio 

// — — 



// _ 

// Callback settings (File scope variables) 

//. 

// This is a function pointer to the function to call when a key has been 
//recognized This function implements a callback behavior. 
GotKeyType pGotKeyFunc; 

// If the callback method is one that calls a function, this is a pointer to 
//the function to call. 
CallbackType pCailbackFunc; 

//If the callback method is one that notifies via a window, this is the 
// window that recieves the notification. 
HWND pQdlbackWindow; 



// If the callback method is one that notifies via a window, this is the 
// window message to send 

int pCallbackMessage; 



// 



// ~ 

// Nfisc variables (File scope variables) 

// 

// WAVEHDRs for the chunks 
WAVEHDR pWaves[NUM_CHUNKS]; 

// Pointer to the entire audio data buffer (for all chunks) 
short * pWaveData; 

// Pointers within pWaveData one for each chunk 
short * pChunkDatapWM_CHUNKS]; 

// Handle of the audio input device 
HWAVEIN phDev; 

// The waveform format 
WAVEFORMATEX pFormat; 

// When TRUE, the decoding loop will exit 
volatile BOOL pQuitNow = FALSE; 

// Handle of the recognizer thread 
HANDLE phThread; 

// Audio device to open 

UINT pAudioDevice = WAVE_MAPPER; 

// Translates a row and column into a key 

static char pKeys[4][4J - {{T, % *3\ 'O}, II O - Flash Override (FO/A) 

, 5 . , 6 , tpy a p , pity 

{1\ , 8 , ? *9\ T} ? // 1 - Immediate (I/C) 
'0\ W, V}};// P - Priority (P/D) 

//- 



// 

// Recognizer settings (File scope variables) 

// — ~ 

// This is a noise gate to stop excessively noisy signal from being 

// considered as a tone candidate. 

int pMinNoise = DEFAULT JwflN_NOISE; 

// This is the number of sampling intervals that must pass until 
// a key is considered pressed (currently a 12 ,75ms sampling interval 
// is hard coded). I suggest 3 - 3 * 12.75 = 38.25 
int pToneDur - DEFAULT TONE J3URATION; 

// This is the number of sampling intervals that must pass between 
// keys (currently a 12.75ms sampling interval is hard coded). 
// 1 suggest 3 - 3 * 12.75 = 38.25 
int pSilenceDur = DEFAULTSILENCEDURATION; 



// This determines how much stronger the detected tones must be 
// compared with the rest of the signal. Likely range is 10 - 50. 
int pSignalToNoise = DEFAULT_SIGNALJTO_NOISE; 

// These are the ratio between the primary tone and its harmonic. 
// The higher they are, the stronger the primary tone must be in 
// comparison, which will mate the thing less likely to misfire. 
//Likely range is 0-25. In my testing, most sources are noisy 
// enough to throw this off rather easily for at least on frequency. 
Ill suspect this is due to the tone generators, 
int pRowRatio = DEFAULT JtOWJRATIO; 
int pColRatio = DEFAULTCOLJRATIO; 

// — . 



H 

// Misc. internal functions 

// 

int CalcNumSamples(douWe MS, int Rate) { 
double T; 

T = MS*(Rate/1000.0); 
if(floor(T)<T){ 

return (int)(floor(T) + 1); 

} else { 

return (int)floor(T); 

} 

} 



unsigned _stdcall ThreadProc (LPVOID Dummy) { 
BOOL TempB; 

TempB - RecognizeO; 

if { (TempB — FALSE) && (gLastEiror = tteNoEiror) ) { 
SetError(tteUnknown); 

> 

_endthreadex(TempB); 
return TempB; //Just for style 

// 



// 

// Callback handling functions 

//— 

// These functions (xCB()) implement callback methods 
void SendMessageCB (char Key) { 

SendMessage(pCallbackWindow 5 pCaUbackMessage, Key, Key); 

} 

void PostMessageCB (char Key) { 

PostMessage(pCalIbackWindow, pCailbackMessage, Key, Key); 

} 



void DirectFunctionCB (char Key) { 
pCalIbackFunc(Key); 

} 



// Used to set set up a callback method » a fairly silly (but 
// straightforward) implementation. 
BOOL SetCaUback(ttCallbackMethods Method, int CB) { 
switch (Method) { 

case ttcmPostMessage: 

pCallbackWifldow = (HWND)CB; 
pGotKeyFunc = PostMessageCB; 
if (ipCallbackWindow) { 

SetEiror(tteBadParameter); 
return FALSE; 

> 

break; 
case ttcmSendMessage: 

pCallbackWindow « (HWND)CB; 
pGotKeyFunc = SendMessageCB; 
if (IpCallbadcWindow) { 

SetError(tteBadParameter); 

return FALSE; 

> 

break; 

case ttcmDirectF unction: 

pCallbackFunc = (CaUbackType)CB; 
pGotKeyFunc - DirectFunctiottCB; 
if(?pCaUbackFunc){ 

SetError(tteBadParameter); 

return FALSE; 

> 

break; 

default: 

SetError(tteNotSuH)orted); 
return FALSE; 

} 

return TRUE; 

> 

// _ m — ~ 



// 

// Interface fiinctions (prototyped in tUnterfaceii) 

// , _ 

TouchToneErrors EXPORT ttGetEnorValO { 
TouchToneErrorsret; 
ret = gLastError, 
gLastError = 0; 
return ret; 

} 



BOOL EXPORT ttlnitializeEx (ttlnitializeExInfo * Info) { 
SetError(tteNoErrar); 



if (Info->StructSize != sizeof(ttInitializeExInfo)) { 
SetEnor(tteNotSupf»rte<0; 
return FALSE; 

} 

if ( ! SetCaUback(Info->CallbackMethod Info->CaHbackInfo 1)) { 
return FALSE; 

} 

pCaHbackMessage= autosetp(Mnfo->CaiIbackInfo2 ? DEFAULTCALLBACKJMESSAGE); 



pMinNoise 

pToneDur 

pSilenceDur 

pSignalToNoise 

pRowRatio 

pCoiRatio 



= autosetp(&Mo->MinNoi$e 7 DEFAULT_MIN_NOISE); 

= autosetp(&Mo->ToneDuration ? DEFAULT_TONE_JDURAHON); 
^utoseQK&Info^SilenceDuratio^DEFAULT SILENCE JXJRATION); 
= autosetp(&Info.>SignalToNoise J DEFAULT_SIGNALJTO_NOISE); 

- autosetp(&Iiifo->RowRatio ? DEFAULT jeOWJtATKD); 

- autosetp(&Iiifo->CoIRatio ? DEFAULTCOLRAHO); 



pAudioDevice = (UD^autosetp(Mnfo->I^ce(>erride, DEFAULT JDEVICE); 
return TRUE; 



BOOL EXPORT ttlnitiaiize (ttCaUbackMethods Method, int CB) { 
SetError(tteNoError); 

if (JSetCallhackCMethocl CB)) { 
return FALSE; 

} 



pCallbackMessage 

pMinNoise 

pToneDur 

pSilenceDur 

pSignalToNoise * 

pRowRatio 

pColRatio 



- DEFAULT_CALLBACK_MESSAGE; 

- DEFAULT JvDN NOISE; 
-DEFAULT TONE DURATION; 

-DEFAULT SBLENQEJOURAHON; 
= DEFAULT_SIGNAL_TO_NOISE; 
= DEFAULT_ROW_RATTO; 

- DEFAULT_COL_RATIO; 



pAudioDevice = DEFAULT JDEVICE; 
return TRUE; 



BOOL EXPORT ttBeginRecognition () { 
intThreadID; 

if (phThread) { 

SetError(tteWroiigState); 
return FALSE; 

} 

pFormatwFormatTag = WAVE_FORMAT_PCM; 
pFonnatnChannels = I; 
pForaiatnSamplesPerSec = 11025; // 11kHz 
pFonnatwBitsPerSample = 16; 

pFormatnBlockAliga - (pFormatnChannels * pFonnatwBitsPerSample) / 8; 
pFormatnAvgBytesPerSec = pFormatnBlockAlign * pFormainSamplesPerSec; 



pFonnatcfeSize - 0; 
if (IpfcDev) { 

waveInOpen(&phDev, pAudioDevice, &pFonnat 0, 0, CALLBACK_NULL); 

} 

if(!phDev){ 

SetError(tteWaveDeviceDidNotOpen); 
return FALSE; 

} 

waveInStart(phDev); 

phThread = (HANDLE) J>eginthreadex( 
NULL, 
0 ? 

ThreadProc, 

NULL, 
0, 

&ThreadID); 

if (phThread) { 

return TRUE; 

> else { 

waveInReset(phDev); 
waveInClose(phDev); 
phDev = 0; 
return FALSE; 

} 

} 



BOOL EXPORT ttEndRecognition () { 
if(!phThread){ 

//It's not running! 
SetError(tteWrongState); 
return FALSE; 

} 

//Tell the thread to quit 
pQuitNow = TRUE; 

// Wait for the thread to finish, then clean it up 
WaitForSingleObjectCphThread, INFINITE); 
CloseHandle(piiThread); 

phThread * NULL: 

//Reset this.., 
pQuitNow = FALSE; 

// Close and clean up the wave device 
if(pfoDev){ 

waveInClose(phDev); 

phDev = NULL; 

} 

return TRUE; 



// 



